home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / bob_al.inc < prev    next >
Encoding:
Text File  |  1998-08-30  |  8.2 KB  |  542 lines
  1. *---------------------------------------
  2. *
  3. *    â{âuò\Ī
  4. *
  5. *    ÄπìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. low_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subq.w    #8,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$001c,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d2
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     addi.w    #16,d2
  39.     addq.w    #1,d7
  40.     move.w    d1,(a6)+
  41.     move.w    d2,(a6)+
  42.     move.w    d7,(a6)+
  43.     move.w    #$0003,(a6)+
  44.  
  45.     rts
  46. @@:
  47.     addi.w    #$401c,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     addi.w    #16,d2
  54.     addq.w    #1,d7
  55.     move.w    d1,(a6)+
  56.     move.w    d2,(a6)+
  57.     move.w    d7,(a6)+
  58.     move.w    #$0003,(a6)+
  59.  
  60.     addi.w    #16,d2
  61.     addq.w    #1,d7
  62.     move.w    d1,(a6)+
  63.     move.w    d2,(a6)+
  64.     move.w    d7,(a6)+
  65.     move.w    #$0003,(a6)+
  66.  
  67.     addi.w    #16,d2
  68.     addq.w    #1,d7
  69.     move.w    d1,(a6)+
  70.     move.w    d2,(a6)+
  71.     move.w    d7,(a6)+
  72.     move.w    #$0003,(a6)+
  73.  
  74.     rts
  75. *---------------------------------------
  76. low_a:
  77.     move.w    C_X(a1),d1
  78.     move.w    C_Y(a1),d2
  79.     subq.w    #8,d1
  80.     subi.w    #32,d2
  81.     tst.w    C_LR_F(a1)
  82.     bne    @f
  83.  
  84.     addi.w    #$001c,d7
  85.     move.w    d1,(a6)+
  86.     move.w    d2,(a6)+
  87.     move.w    d7,(a6)+
  88.     move.w    #$0003,(a6)+
  89.  
  90.     addi.w    #16,d2
  91.     addq.w    #1,d7
  92.     move.w    d1,(a6)+
  93.     move.w    d2,(a6)+
  94.     move.w    d7,(a6)+
  95.     move.w    #$0003,(a6)+
  96.  
  97.     addi.w    #16,d2
  98.     addq.w    #1,d7
  99.     move.w    d1,(a6)+
  100.     move.w    d2,(a6)+
  101.     move.w    d7,(a6)+
  102.     move.w    #$0003,(a6)+
  103.  
  104.     addi.w    #16,d2
  105.     addq.w    #1,d7
  106.     move.w    d1,(a6)+
  107.     move.w    d2,(a6)+
  108.     move.w    d7,(a6)+
  109.     move.w    #$0003,(a6)+
  110.  
  111.     addi.w    #16,d1
  112.     subi.w    #48,d2
  113.     addq.w    #1,d7
  114.     move.w    d1,(a6)+
  115.     move.w    d2,(a6)+
  116.     move.w    d7,(a6)+
  117.     move.w    #$0003,(a6)+
  118.  
  119.     rts
  120. @@:
  121.     addi.w    #$401c,d7
  122.     move.w    d1,(a6)+
  123.     move.w    d2,(a6)+
  124.     move.w    d7,(a6)+
  125.     move.w    #$0003,(a6)+
  126.  
  127.     addi.w    #16,d2
  128.     addq.w    #1,d7
  129.     move.w    d1,(a6)+
  130.     move.w    d2,(a6)+
  131.     move.w    d7,(a6)+
  132.     move.w    #$0003,(a6)+
  133.  
  134.     addi.w    #16,d2
  135.     addq.w    #1,d7
  136.     move.w    d1,(a6)+
  137.     move.w    d2,(a6)+
  138.     move.w    d7,(a6)+
  139.     move.w    #$0003,(a6)+
  140.  
  141.     addi.w    #16,d2
  142.     addq.w    #1,d7
  143.     move.w    d1,(a6)+
  144.     move.w    d2,(a6)+
  145.     move.w    d7,(a6)+
  146.     move.w    #$0003,(a6)+
  147.  
  148.     subi.w    #16,d1
  149.     subi.w    #48,d2
  150.     addq.w    #1,d7
  151.     move.w    d1,(a6)+
  152.     move.w    d2,(a6)+
  153.     move.w    d7,(a6)+
  154.     move.w    #$0003,(a6)+
  155.  
  156.     rts
  157. *---------------------------------------
  158. low_t:
  159.     move.w    C_X(a1),d1
  160.     move.w    C_Y(a1),d2
  161.     subq.w    #8,d1
  162.     subi.w    #32,d2
  163.     tst.w    C_LR_F(a1)
  164.     bne    @f
  165.  
  166.     addi.w    #$001c,d7
  167.     move.w    d1,(a6)+
  168.     move.w    d2,(a6)+
  169.     move.w    d7,(a6)+
  170.     move.w    #$0003,(a6)+
  171.  
  172.     addi.w    #16,d2
  173.     addq.w    #1,d7
  174.     move.w    d1,(a6)+
  175.     move.w    d2,(a6)+
  176.     move.w    d7,(a6)+
  177.     move.w    #$0003,(a6)+
  178.  
  179.     addi.w    #16,d2
  180.     addq.w    #1,d7
  181.     move.w    d1,(a6)+
  182.     move.w    d2,(a6)+
  183.     move.w    d7,(a6)+
  184.     move.w    #$0003,(a6)+
  185.  
  186.     addi.w    #16,d2
  187.     addq.w    #1,d7
  188.     move.w    d1,(a6)+
  189.     move.w    d2,(a6)+
  190.     move.w    d7,(a6)+
  191.     move.w    #$0003,(a6)+
  192.  
  193.     addi.w    #16,d1
  194.     subi.w    #48,d2
  195.     addq.w    #2,d7
  196.     move.w    d1,(a6)+
  197.     move.w    d2,(a6)+
  198.     move.w    d7,(a6)+
  199.     move.w    #$0003,(a6)+
  200.  
  201.     rts
  202. @@:
  203.     addi.w    #$401c,d7
  204.     move.w    d1,(a6)+
  205.     move.w    d2,(a6)+
  206.     move.w    d7,(a6)+
  207.     move.w    #$0003,(a6)+
  208.  
  209.     addi.w    #16,d2
  210.     addq.w    #1,d7
  211.     move.w    d1,(a6)+
  212.     move.w    d2,(a6)+
  213.     move.w    d7,(a6)+
  214.     move.w    #$0003,(a6)+
  215.  
  216.     addi.w    #16,d2
  217.     addq.w    #1,d7
  218.     move.w    d1,(a6)+
  219.     move.w    d2,(a6)+
  220.     move.w    d7,(a6)+
  221.     move.w    #$0003,(a6)+
  222.  
  223.     addi.w    #16,d2
  224.     addq.w    #1,d7
  225.     move.w    d1,(a6)+
  226.     move.w    d2,(a6)+
  227.     move.w    d7,(a6)+
  228.     move.w    #$0003,(a6)+
  229.  
  230.     subi.w    #16,d1
  231.     subi.w    #48,d2
  232.     addq.w    #2,d7
  233.     move.w    d1,(a6)+
  234.     move.w    d2,(a6)+
  235.     move.w    d7,(a6)+
  236.     move.w    #$0003,(a6)+
  237.  
  238.     rts
  239. *---------------------------------------
  240. low2_s:
  241.     move.w    C_X(a1),d1
  242.     move.w    C_Y(a1),d2
  243.     subi.w    #16,d1
  244.     subi.w    #32,d2
  245.     tst.w    C_LR_F(a1)
  246.     bne    @f
  247.  
  248.     addi.w    #$0055,d7
  249.     move.w    d1,(a6)+
  250.     move.w    d2,(a6)+
  251.     move.w    d7,(a6)+
  252.     move.w    #$0003,(a6)+
  253.  
  254.     addi.w    #16,d1
  255.     addq.w    #1,d7
  256.     move.w    d1,(a6)+
  257.     move.w    d2,(a6)+
  258.     move.w    d7,(a6)+
  259.     move.w    #$0003,(a6)+
  260.  
  261.     subi.w    #16,d1
  262.     addi.w    #16,d2
  263.     addq.w    #1,d7
  264.     move.w    d1,(a6)+
  265.     move.w    d2,(a6)+
  266.     move.w    d7,(a6)+
  267.     move.w    #$0003,(a6)+
  268.  
  269.     addi.w    #16,d1
  270.     addq.w    #1,d7
  271.     move.w    d1,(a6)+
  272.     move.w    d2,(a6)+
  273.     move.w    d7,(a6)+
  274.     move.w    #$0003,(a6)+
  275.  
  276.     subi.w    #16,d1
  277.     addi.w    #16,d2
  278.     addq.w    #1,d7
  279.     move.w    d1,(a6)+
  280.     move.w    d2,(a6)+
  281.     move.w    d7,(a6)+
  282.     move.w    #$0003,(a6)+
  283.         
  284.     addi.w    #16,d1
  285.     addq.w    #1,d7
  286.     move.w    d1,(a6)+
  287.     move.w    d2,(a6)+
  288.     move.w    d7,(a6)+
  289.     move.w    #$0003,(a6)+
  290.  
  291.     subi.w    #16,d1
  292.     addi.w    #16,d2
  293.     addq.w    #1,d7
  294.     move.w    d1,(a6)+
  295.     move.w    d2,(a6)+
  296.     move.w    d7,(a6)+
  297.     move.w    #$0003,(a6)+
  298.  
  299.     addi.w    #16,d1
  300.     addq.w    #1,d7
  301.     move.w    d1,(a6)+
  302.     move.w    d2,(a6)+
  303.     move.w    d7,(a6)+
  304.     move.w    #$0003,(a6)+
  305.  
  306.     addi.w    #16,d1
  307.     subi.w    #32,d2
  308.     addi.w    #10,d7
  309.     move.w    d1,(a6)+
  310.     move.w    d2,(a6)+
  311.     move.w    d7,(a6)+
  312.     move.w    #$0003,(a6)+
  313.  
  314.     rts
  315. @@:
  316.     addi.w    #$4056,d7
  317.     move.w    d1,(a6)+
  318.     move.w    d2,(a6)+
  319.     move.w    d7,(a6)+
  320.     move.w    #$0003,(a6)+
  321.  
  322.     addi.w    #16,d1
  323.     subq.w    #1,d7
  324.     move.w    d1,(a6)+
  325.     move.w    d2,(a6)+
  326.     move.w    d7,(a6)+
  327.     move.w    #$0003,(a6)+
  328.  
  329.     subi.w    #16,d1
  330.     addi.w    #16,d2
  331.     addq.w    #3,d7
  332.     move.w    d1,(a6)+
  333.     move.w    d2,(a6)+
  334.     move.w    d7,(a6)+
  335.     move.w    #$0003,(a6)+
  336.  
  337.     addi.w    #16,d1
  338.     subq.w    #1,d7
  339.     move.w    d1,(a6)+
  340.     move.w    d2,(a6)+
  341.     move.w    d7,(a6)+
  342.     move.w    #$0003,(a6)+
  343.  
  344.     subi.w    #16,d1
  345.     addi.w    #16,d2
  346.     addq.w    #3,d7
  347.     move.w    d1,(a6)+
  348.     move.w    d2,(a6)+
  349.     move.w    d7,(a6)+
  350.     move.w    #$0003,(a6)+
  351.  
  352.     addi.w    #16,d1
  353.     subq.w    #1,d7
  354.     move.w    d1,(a6)+
  355.     move.w    d2,(a6)+
  356.     move.w    d7,(a6)+
  357.     move.w    #$0003,(a6)+
  358.  
  359.     subi.w    #16,d1
  360.     addi.w    #16,d2
  361.     addq.w    #3,d7
  362.     move.w    d1,(a6)+
  363.     move.w    d2,(a6)+
  364.     move.w    d7,(a6)+
  365.     move.w    #$0003,(a6)+
  366.  
  367.     addi.w    #16,d1
  368.     subq.w    #1,d7
  369.     move.w    d1,(a6)+
  370.     move.w    d2,(a6)+
  371.     move.w    d7,(a6)+
  372.     move.w    #$0003,(a6)+
  373.  
  374.     subi.w    #32,d1
  375.     subi.w    #32,d2
  376.     addi.w    #11,d7
  377.     move.w    d1,(a6)+
  378.     move.w    d2,(a6)+
  379.     move.w    d7,(a6)+
  380.     move.w    #$0003,(a6)+
  381.  
  382.     rts
  383. *---------------------------------------
  384. low2_a:
  385.     move.w    C_X(a1),d1
  386.     move.w    C_Y(a1),d2
  387.     subi.w    #16,d1
  388.     subi.w    #32,d2
  389.     tst.w    C_LR_F(a1)
  390.     bne    @f
  391.  
  392.     addi.w    #$0055,d7
  393.     move.w    d1,(a6)+
  394.     move.w    d2,(a6)+
  395.     move.w    d7,(a6)+
  396.     move.w    #$0003,(a6)+
  397.  
  398.     addi.w    #16,d1
  399.     addq.w    #1,d7
  400.     move.w    d1,(a6)+
  401.     move.w    d2,(a6)+
  402.     move.w    d7,(a6)+
  403.     move.w    #$0003,(a6)+
  404.  
  405.     subi.w    #16,d1
  406.     addi.w    #16,d2
  407.     addq.w    #1,d7
  408.     move.w    d1,(a6)+
  409.     move.w    d2,(a6)+
  410.     move.w    d7,(a6)+
  411.     move.w    #$0003,(a6)+
  412.  
  413.     addi.w    #16,d1
  414.     addq.w    #1,d7
  415.     move.w    d1,(a6)+
  416.     move.w    d2,(a6)+
  417.     move.w    d7,(a6)+
  418.     move.w    #$0003,(a6)+
  419.  
  420.     subi.w    #16,d1
  421.     addi.w    #16,d2
  422.     addq.w    #1,d7
  423.     move.w    d1,(a6)+
  424.     move.w    d2,(a6)+
  425.     move.w    d7,(a6)+
  426.     move.w    #$0003,(a6)+
  427.         
  428.     addi.w    #16,d1
  429.     addq.w    #1,d7
  430.     move.w    d1,(a6)+
  431.     move.w    d2,(a6)+
  432.     move.w    d7,(a6)+
  433.     move.w    #$0003,(a6)+
  434.  
  435.     subi.w    #16,d1
  436.     addi.w    #16,d2
  437.     addq.w    #1,d7
  438.     move.w    d1,(a6)+
  439.     move.w    d2,(a6)+
  440.     move.w    d7,(a6)+
  441.     move.w    #$0003,(a6)+
  442.  
  443.     addi.w    #16,d1
  444.     addq.w    #1,d7
  445.     move.w    d1,(a6)+
  446.     move.w    d2,(a6)+
  447.     move.w    d7,(a6)+
  448.     move.w    #$0003,(a6)+
  449.  
  450.     addi.w    #16,d1
  451.     subi.w    #32,d2
  452.     addi.w    #9,d7
  453.     move.w    d1,(a6)+
  454.     move.w    d2,(a6)+
  455.     move.w    d7,(a6)+
  456.     move.w    #$0003,(a6)+
  457.  
  458.     addi.w    #16,d1
  459.     addq.w    #1,d7
  460.     move.w    d1,(a6)+
  461.     move.w    d2,(a6)+
  462.     move.w    d7,(a6)+
  463.     move.w    #$0003,(a6)+
  464.  
  465.     rts
  466. @@:
  467.     addi.w    #$4056,d7
  468.     move.w    d1,(a6)+
  469.     move.w    d2,(a6)+
  470.     move.w    d7,(a6)+
  471.     move.w    #$0003,(a6)+
  472.  
  473.     addi.w    #16,d1
  474.     subq.w    #1,d7
  475.     move.w    d1,(a6)+
  476.     move.w    d2,(a6)+
  477.     move.w    d7,(a6)+
  478.     move.w    #$0003,(a6)+
  479.  
  480.     subi.w    #16,d1
  481.     addi.w    #16,d2
  482.     addq.w    #3,d7
  483.     move.w    d1,(a6)+
  484.     move.w    d2,(a6)+
  485.     move.w    d7,(a6)+
  486.     move.w    #$0003,(a6)+
  487.  
  488.     addi.w    #16,d1
  489.     subq.w    #1,d7
  490.     move.w    d1,(a6)+
  491.     move.w    d2,(a6)+
  492.     move.w    d7,(a6)+
  493.     move.w    #$0003,(a6)+
  494.  
  495.     subi.w    #16,d1
  496.     addi.w    #16,d2
  497.     addq.w    #3,d7
  498.     move.w    d1,(a6)+
  499.     move.w    d2,(a6)+
  500.     move.w    d7,(a6)+
  501.     move.w    #$0003,(a6)+
  502.  
  503.     addi.w    #16,d1
  504.     subq.w    #1,d7
  505.     move.w    d1,(a6)+
  506.     move.w    d2,(a6)+
  507.     move.w    d7,(a6)+
  508.     move.w    #$0003,(a6)+
  509.  
  510.     subi.w    #16,d1
  511.     addi.w    #16,d2
  512.     addq.w    #3,d7
  513.     move.w    d1,(a6)+
  514.     move.w    d2,(a6)+
  515.     move.w    d7,(a6)+
  516.     move.w    #$0003,(a6)+
  517.  
  518.     addi.w    #16,d1
  519.     subq.w    #1,d7
  520.     move.w    d1,(a6)+
  521.     move.w    d2,(a6)+
  522.     move.w    d7,(a6)+
  523.     move.w    #$0003,(a6)+
  524.  
  525.     subi.w    #32,d1
  526.     subi.w    #32,d2
  527.     addi.w    #10,d7
  528.     move.w    d1,(a6)+
  529.     move.w    d2,(a6)+
  530.     move.w    d7,(a6)+
  531.     move.w    #$0003,(a6)+
  532.  
  533.     subi.w    #16,d1
  534.     addq.w    #1,d7
  535.     move.w    d1,(a6)+
  536.     move.w    d2,(a6)+
  537.     move.w    d7,(a6)+
  538.     move.w    #$0003,(a6)+
  539.  
  540.     rts
  541. *---------------------------------------
  542.